home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amoszine 8
/
Amoszine 8 (Disk 2 of 3).adf
/
AMON_Extension.lha
/
amon_extension
/
examples_asc
/
FastCircle.Asc
< prev
next >
Wrap
Text File
|
1995-08-07
|
325b
|
22 lines
' Program: Fast Circle Example.
' Author: Paul Overy
' Date: 7/8/95
'
Cls 0 : Wait Vbl : Timer=0
For K=1 To 140
Fast Circle 160,100,K,3
Next K
T1=Timer
'
Cls 0 : Wait Vbl : Timer=0
Ink 3
For K=1 To 140
Circle 160,100,K
Next K
T2=Timer
'
Print "fast circle took";T1;" frames"
Print "Amos circle took";T2;" frames"